EnigmA Amiga Run 1996 June/EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso/earcd/comm2/crshtk10.lha/CrashTick/Install

Text File | 1996-05-11 | 5KB | 234 lines

; Installation script for CrashTick

(set reqtoolslib "libs/reqtools.library")
(set gtlayoutlib "libs/gtlayout.library")

; make sure we are running under at least Kickstart 2.04

(if (< (/ (getversion) 65536) 37)
(
    (abort "Sorry, you need at least Workbench 2.04 to use CrashTick")
))

(complete 0)

(message "\nWelcome to the CrashTick installation script.\n\n"
         "CrashTick is a file echo handler ('tick program') "
         "for FidoNet and all other nets using the same technology.\n\n"
         "Please read CrashTick.guide for more information.\n\n"
         "CrashTick is Copyright 1996 Johan Billing.\n\n")

(copylib
    (prompt "Copying gtlayout.library...")
    (help "CrashTickPrefs needs this library for the "
          "user interface. If you don't install "
          "gtlayout.library, you will not be able "
          "to use CrashTickPrefs. ")
    (source gtlayoutlib)
    (dest "Libs:")
    (confirm)
)

(complete 20)

(copylib
    (prompt "Copying reqtools.library...\n\n"
            "Only the main library file is included in the CrashTick archive. "
            "If you want to use ReqTools in your local language or use the "
            "ReqTools settings program, you need to get the complete ReqTools "
            "archive.")

    (help "CrashTickPrefs needs this library for "
          "its requesters If you don't install "
          "reqtools.library, you will not be able "
          "to use CrashTickPrefs. ")

    (source reqtoolslib)
    (dest "Libs:")
    (confirm)
)

(complete 40)

; Ask for destination directory

(set destdir
   (askdir
      (prompt "Please select the directory where you want to install CrashTick. "
               "This script will not create a directory, the files will be put "
               "in the directory that you select here ")
      (help "")
      (default "RAM:")
   )
)

(set @default-dest destdir)

; Copy the main files

(set prgbitmap
  (askoptions
    (prompt "Which parts of the archive do you want to copy?")
    (help   "Just select the files you want to copy.\n\n"
            "CrashTick            Main program\n"
            "CrashTick.guide      Documentation\n"
            "CrashTickPrefs       Settings program\n"
            "CrashTickStats       Statistics display program\n"
            "RaidHelp.doc         Helpfile for the Raid\n"
            "TickStatsFormat.doc  Format of the statistics file\n")

    (choices "CrashTick"
             "CrashTick.guide"
             "CrashTickPrefs"
             "CrashTickStats"
             "RaidHelp.doc"
             "TickStatsFormat.doc")

    (default 63)
  )
)

(if (BITAND prgbitmap 1)
   (copyfiles
      (prompt "")
      (help "")
       (source "CrashTick")
       (dest destdir)
       (infos)
   )
)

(if (BITAND prgbitmap 2)
   (copyfiles
      (prompt "")
      (help "")
       (source "CrashTick.guide")
       (dest destdir)
       (infos)
   )
)

(if (BITAND prgbitmap 4)
   (copyfiles
      (prompt "")
      (help "")
       (source "CrashTickPrefs")
       (dest destdir)
       (infos)
   )
)

(if (BITAND prgbitmap 8)
   (copyfiles
      (prompt "")
      (help "")
       (source "CrashTickStats")
       (dest destdir)
       (infos)
   )
)

(if (BITAND prgbitmap 16)
   (copyfiles
      (prompt "")
      (help "")
       (source "RaidHelp.doc")
       (dest destdir)
       (infos)
   )
)

(if (BITAND prgbitmap 32)
   (copyfiles
      (prompt "")
      (help "")
       (source "TickStatsFormat.doc")
       (dest destdir)
       (infos)
   )
)

(complete 60)

(if (exists "SYS:Locale")
  (
     (set lang
       (askoptions
         (prompt "Which languages do you want to install?")
         (help "The default language is english.")
         (choices
           "Svenska")
         (default 0)
       )
     )

     (if (not (= lang 0))
       (
         (set destplace
           (askchoice
             (prompt "Which languages do you want to install?")
             (help "This is where the catalog files will be installed.")
             (choices
               "PROGDIR:Catalogs"
               "LOCALE:Catalogs" )
             (default 0)
           )
         )

         (if (= destplace 0) (set basepath (tackon destdir "Catalogs")))
         (if (= destplace 1) (set basepath "LOCALE:Catalogs"))
       )
     )

     (set n 0)

     (while (set language
            (select n
             "svenska"
             "")
            )

        (
          (if (IN lang n)
          (
             (if (<> "english" language)
             (
                    (makedir (tackon basepath language))
                    (copyfiles
                      (source (tackon (tackon "Catalogs" language) "CrashTick.catalog"))
                      (dest (tackon basepath language)))
                  )
                )
              )
            )
            (set n (+ n 1))
          )
        )

     )
  )

(complete 80)

(if
    (askbool
        (prompt "Do you want to copy the included ARexx scripts?")
        (help "Some ARexx scripts are included with CrashTick. They "
              "are small programs that might be useful to you...")
        (default 1)
    )
    (
        (copyfiles
            (source "Rexx")
            (dest (tackon destdir "Rexx"))
            (all)
         (infos)
        )
    )
)

(complete 100)

(message "CrashTick is now installed. Now you should "
         "start CrashTickPrefs to configure CrashTick")